home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / LogoMotion101.sit / LogoMation 1.0.1 ƒ / Examples / B & W / multi pen / multi pen
Encoding:
Text File  |  1992-09-15  |  1.2 KB  |  72 lines  |  [UVtx/UVtl]
  1. Library "multi pen.lib"
  2.  
  3. /////////////////////////////////////////////////////////////
  4. initHeader()
  5. Header("the Talking Multi Pen")
  6.  
  7. Picture "triangle"
  8.     Fill 2,9176,65535,4563
  9.         Repeat 3
  10.             Left 120
  11.             Forward 40
  12.  
  13. Header("pen #1 draws in black")
  14. Pen name="pen #1"
  15. Repeat 7
  16.     Forward 30
  17.     Right 360/7
  18.     Sound "one"
  19.  
  20. Header("pen #2 draws in solid red")
  21. Pen name="pen #2"
  22. Width 3
  23. Color 65535,0,0
  24. Up
  25. Goto 100,100,90
  26. Down
  27. Repeat 8
  28.     Forward 30
  29.     Right 360/8
  30.     Sound "two"
  31.     
  32. Header("pen #3 draws a blue circle")
  33. Pen name="pen #3"
  34. Color 0,0,65535
  35. Up
  36. Goto -100,100,90
  37. Down
  38. Circle 40
  39. Forward 40
  40. Sound "Droplet"
  41.  
  42. Header("pen #4 animates a green triangle")
  43. Pen name="pen #4", picture="triangle", end="yes"
  44. Sound "four",nowait
  45. Forward 100
  46.  
  47. Header("pen #2 draws a diagonal")
  48. Pen name="pen #2"
  49. Right 68
  50. Forward 78 
  51. Sound "two"
  52.  
  53. Header("pen #1 draws a horiz line")
  54. Pen name="pen #1"
  55. Left 360/7
  56. Backward 30
  57. Right 360/7
  58. Forward 68
  59. Sound "one"
  60.     
  61. Header("pen #3 completes the circle")
  62. Pen name="pen #3"
  63. Forward 2*π*40-40
  64. Sound "Droplet"
  65.  
  66. Header("pen #4 smears the triangle downwards")
  67. Pen name="pen #4", trail="yes"
  68. Right 90
  69. Sound "four",nowait
  70. Forward 100
  71.  
  72. Header("the Talking Multi Pen")